home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / gui / gengui2.lha / GenGui2 / Examples / jumpwin.gui < prev    next >
Text File  |  1995-02-14  |  1KB  |  92 lines
  1.  
  2. #c_source
  3.  
  4. #include "backfillhook.h"
  5.  
  6. struct Hook chess={{0,0},HookFunc,0,COLOR(2,0)};
  7. struct Hook clear={{0,0},HookFunc,0,COLOR(0,0)};
  8.  
  9. #define WIN0 0
  10. #define WIN1 1
  11. #define OK   2
  12. #define CANCEL 3
  13. #define FORGET 4
  14.  
  15.  
  16. #end_source
  17.  
  18. ProjectName JumpGui
  19. VBox
  20.    backfill &chess
  21.    xspace 4
  22.    yspace 4
  23.  
  24.    vbox
  25.  
  26.       backfill &clear
  27.       frame recessed
  28.  
  29.       vbox
  30.          vchar 1
  31.       end
  32.  
  33.       String
  34.          Flags PLACETEXT_ABOVE
  35.          MinHChar 27
  36.          Text  "Gadget that keeps contents:"
  37.  
  38.          ID 100
  39.       end
  40.  
  41.       Text
  42.          Tags GTTX_Text,(ULONG)"Jump to:"
  43.          ID 101
  44.       end
  45.  
  46.  
  47.       hbox
  48.  
  49.          button
  50.             vrel 1
  51.             Text "Window 1"
  52.             ID WIN0
  53.          end
  54.          button
  55.             vrel 1
  56.             Text "Window 2"
  57.             id WIN1
  58.          end
  59.  
  60.       end
  61.  
  62.    end
  63.  
  64.  
  65.    hbox
  66.       stdline 1
  67.  
  68.       button
  69.          text "OK"
  70.          ID   OK
  71.       end
  72.  
  73.       button
  74.          text "Clear"
  75.          Id FORGET
  76.       end
  77.  
  78.       button
  79.          text "Cancel"
  80.          ID   CANCEL
  81.       end
  82.    end
  83. end
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.